home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v11n12 / labnotes.exe / GETVER < prev    next >
Encoding:
Text File  |  1992-05-19  |  617 b   |  17 lines

  1. .286P                     ;use 286 instructions
  2. .Model Medium             ;medium memory model 
  3.  
  4. Extrn WinVer:Far          ;Windows Version API function 
  5. Public  GetVer            ;DLL routines must be public
  6. Include LabNotes.Inc      ;macros for prolog and epilog
  7.  
  8. .CODE                     ;simplified code segment
  9.  
  10. GetVer Proc Far           ;Far procedure
  11.         WinProlog         ;Windows Prolog Macro
  12.         Call WinVer       ;returns version in AX
  13.         WinEpilog         ;Windows Epilog Macro           
  14.         Ret               ;return to VB, no arguments to remove
  15. GetVer EndP
  16. END     
  17.